Usenet 1993 July

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume9 / elm2 / part02 < prev next >

Wrap

Internet Message Format | 1987-03-08 | 57.8 KB

Subject: v09i002: ELM Mail System, Part02/19 Newsgroups: mod.sources Approved: rs@mirror.TMC.COM Submitted by: Dave Taylor <hplabs!taylor> Mod.sources: Volume 9, Issue 2 Archive-name: elm2/Part02 [ Yes, this is bigger than the News B2.11 distribution... --r$ ] #! /bin/sh # This is a shell archive. Remove anything before this line, # then unpack it by saving it in a file and typing "sh file". # If this archive is complete, you will see the message: # "End of archive 2 (of 19)." # Contents: NOTICE doc/elm.1 doc/elmrc-info doc/fastmail.1 # doc/readmsg.1 filter/utils.c src/Makefile src/Makefile.mstr # src/args.c src/bounceback.c src/connect_to.c src/errno.c # src/fileio.c src/mkhdrs.c src/showmsg_cmd.c src/softkeys.c # utils/printmail.c PATH=/bin:/usr/bin:/usr/ucb ; export PATH echo shar: Extracting \"NOTICE\" $2958 characters$ if test -f NOTICE ; then echo shar: Will not over-write existing file \"NOTICE\" else sed "s/^X//" >NOTICE <<'END_OF_NOTICE' X X The Elm(tm) Mail System General Public License X X X (C) Copyright 1986, Dave Taylor X X X COPYING POLICIES X X Permission is hereby granted for copying and distribution of copies of X the Elm source files, and that of any part thereof, subject to the following X license conditions: X X 1. You may without additional permission from the author, distribute X Elm or components of Elm, with or without additions developed by X you or by others at no charge. You may also distribute Elm along X with any other product for sale, provided that the cost of the X bundled package is the same regardless of whether Elm is included, X and provided that those interested only in Elm must be notified X that it is product freely available from the author. X X 2. Furthermore, if you distribute Elm software or parts of Elm, with X or without additions developed by you or others, then you must X either make available source of all portions of the Elm program X (exclusive of any additions made by you or by others) upon request, X or instead you may notify anyone requesting source that it is X freely available from the author. X X 3. In addition, you may not omit any of the copyright notices X on either the source files, the executable file, or the X documentation, and X X 4. Also, you may not omit transmission of this License agreement with X whatever portions of Elm that are distributed. X X 5. Lastly, any users of this software must be notified that it is any X without warrantee, or guarantee of any nature, express or implied, X nor is there any fitness for use represented. X XSoftware is a malleable thing - especially Unix - and the author can in no Xway guarantee that using this program will not cause grevious damage to your Xsystem. Of course this isn't anticipated, but if it does happen, the author Xcannot be held liable for any damages either directly or indirectly caused Xby this event. X XModification of the system is encouraged, providing that the portions of Xthe system that are from the original still carry the appropriate copyright Xnotices and that the changed sections are clearly delimited as such. The Xauthor requests copies of any changes made to ensure that the various versions Xstay reasonably in sync with each other. X XNOTE that it is not permitted to copy, sublicense distribute or transfer any Xof the Elm software except as expressly indicated herein. Any attempts to Xdo otherwise will be considered a violation of this license and your rights Xto the Elm software will be voided. X X XComments on the system and/or this licensing agreement is encouraged. Send Xelectronic mail to "taylor@hplabs.HP.COM". This license was written with Xhelp from Scott McGregor. Thanks Scott! X X X---- XElm is a trademark of Dave Taylor. END_OF_NOTICE if test 2958 -ne `wc -c <NOTICE`; then echo shar: \"NOTICE\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"doc/elm.1\" $2799 characters$ if test -f doc/elm.1 ; then echo shar: Will not over-write existing file \"doc/elm.1\" else sed "s/^X//" >doc/elm.1 <<'END_OF_doc/elm.1' X.TH ELM 1L X.ad b X.SH NAME Xelm - an interactive mail system X.SH SYNOPSIS X.B elm X[ X.B \-achkKmrwz X] [ X.B \-f X< X.B file X>] [ X.B \-d X< X.B level X>] X.br X.B elm X[ X.B \-s X< X.B subject X>] < X.B "list of aliases or addresses" X> X.PP X.SH HP-UX COMPATIBILITY X.TP 10 XLevel: XHP-UX/CONTRIBUTED X.TP XOrigin: XHewlett-Packard X.SH DESCRIPTION X.I Elm\^ Xis a new interactive mailer program that supercedes X.I mail Xand X.I mailx. X.PP XThere are three main ways to use the \fBelm\fR mailer; Xone way to use the mailer is to specify a list of addresses on the Xcommand line when the mailer is invoked. This will allow sending Xof a single message to the specified recipients with all the Xoptions usually available in the \fBelm\fR system itself. X.PP XThe second way, used most commonly when transmitting files and such, Xis to specify the subject of the message and the recipients using Xthe command line and redirect a file as standard input. For example, Xthe command X.nf X X elm -s testing joe < test.c X X.fi Xwould mail a copy of the Xfile test.c to alias joe, with the subject "testing" indicated. X.PP XOtherwise, the starting options are; X.TP 1.0i X.B "-a" XArrow - force the arrow cursor (instead of the inverse bar) X.TP X.B "-c" XCheckalias - expand the following aliases and return. X.TP X.B "-d <level>" XDebug - set specified debug level - Output to "$HOME/Elm:debug.info" X.TP X.B "-f <file>" XFile - read file (specified) rather than the incoming mailbox. X.TP X.B "-h" XHelp - give a list of starting options. X.TP X.B "?" XSynonymous with the "-h" option. X.TP X.B "-k" XKeypad - force knowledge of HP terminal keyboard, to allow Xthe use of the NEXT, PREV and HOME/SHIFT-HOME keys. X.TP X.B "-K" XKeypad + softkeys - enable use of softkeys on HP terminals only. X.TP X.B "-m" XMenu off - Use the extra lines for more message headers. X.TP X.B "-s" XSubject - specify subject for message to mail. X.TP X.B "-z" XZero - don't enter \fBElm\fR if no mail is pending. X.SH AUTHOR XDave Taylor, Hewlett-Packard Laboratories X.SH SEE ALSO X.I "Elm Users Guide", Xby Dave Taylor X.sp X.br X.I "Elm Reference Guide" Xby Dave Taylor X.sp X.br X.I "Elm Alias Users Guide" Xby Dave Taylor X.sp X.br Xnewalias(1L), checkalias(1L), mail(1), mailx(1), from(1L), printmail(1L) X.SH FILES X/usr/local/bin/elm-help.main help file X.br X/usr/mail/.alias_hash system alias hash table X.br X/usr/mail/.alias_data system alias data table X.br X$home/.alias_hash user alias hash table X.br X$home/.alias_data user alias data table X.br X/tmp/snd* outgoing mail edit buffer X.br X/tmp/mbox* temporary mailbox X.br X$HOME/ELM:debug.info Debug output if turned on X.SH DIAGNOSTICS XShould know about keyboards/softkey terminals other than HP. (If only Xtermcap were that powerful!) END_OF_doc/elm.1 if test 2799 -ne `wc -c <doc/elm.1`; then echo shar: \"doc/elm.1\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"doc/elmrc-info\" $2800 characters$ if test -f doc/elmrc-info ; then echo shar: Will not over-write existing file \"doc/elmrc-info\" else sed "s/^X//" >doc/elmrc-info <<'END_OF_doc/elmrc-info' Xshell X# The shell to use for shell escapes X Xfullname X# The full user name for outbound mail X Xmaildir X# where to save my mail to, default directory X Xmailbox X# where to save messages to, default file X Xeditor X# what editor to use (none = simulate Berkeley Mail) X Xsavemail X# where to save mail if not specified somewhere else X Xcalendar X# where to save calendar entries X Xsortby X# and how to sort mailboxes, by default X Xprint X# how to print a message ('%s' is the filename) X Xprefix X# prefix sequence for including message text in other messages... X Xweedout X# what headers I DON'T want to see, ever. X Xbounceback X# threshold for bouncing copies of remote uucp messages... X# zero = disable function. X Xtimeout X# Set the main prompt timeout for resynching... X Xautocopy X# automatically copy message being replied to into buffer? X Xcopy X# save a copy of all outbound messages? X Xresolve X# emulate the mailx message increment mode (only increment after something X# has been 'done' to a message, either saved or deleted, as opposed to X# simply each time something is touched) X Xweed X# enable the weedout list to be read... X Xnoheader X# when messages are copied into the outbound buffer, don't include headers X Xtitles X# display message title when displaying pages of message X Xeditout X# edit the headers as the message leaves the machine (sort of) X Xsavename X# save messages, incoming and outbound, by login name of sender/recipient X Xmovepage X# when using the page commands (+ - <NEXT> <PREV>) change the current X# message pointer... X Xpointnew X# start up by pointing to the first new message received, if possible X Xsignature X# ".signature" files to append to outbound messages... X Xlocalsignature X# local ".signature" files to append to appropriate messages... X Xremotesignature X# remote ".signature" files to append to appropriate messages... X Xalwaysleave X# should we always leave messages as pending (change the default answer to yes) X Xalwaysdelete X# should we always delete messages we've marked for deletion (change the X# default answer to yes) X Xpager X# program to use for displaying messages ('builtin' is recommended) X Xkeypad X# we're running on an HP terminal and want HOME, PREV, NEXT, etc... X Xsoftkeys X# we're running on an HP terminal and want softkeys available too! X# (this implies "keypad=ON" too) X Xalternatives X# alternative addresses that I could receive mail from (usually a X# forwarding mailbox) and don't want to have listed... X Xforms X# we might mail out AT&T Mail Forms X Xwarnings X# tell us about addresses to machines we can't directly get to? X Xuserlevel X# are we good at it? 0=beginner, 1=intermediate, 2+ = expert! X Xnames X# let's just show the names, though, when expanding aliases... X Xarrow X# should we use the "->" rather than the inverse video bar? X Xmenu X# should we display the three-line menus? END_OF_doc/elmrc-info if test 2800 -ne `wc -c <doc/elmrc-info`; then echo shar: \"doc/elmrc-info\" unpacked with wrong size!? fi chmod +x doc/elmrc-info # end of overwriting check fi echo shar: Extracting \"doc/fastmail.1\" $3033 characters$ if test -f doc/fastmail.1 ; then echo shar: Will not over-write existing file \"doc/fastmail.1\" else sed "s/^X//" >doc/fastmail.1 <<'END_OF_doc/fastmail.1' X.TH FASTMAIL 1L X.ad b X.SH NAME Xfastmail - quick batch mail interface to a single address X.SH SYNOPSIS X.B fastmail X[-b bcc-list] [-c cc-list] [-d] [-f fromname] [-r replyto] X[-s subject] filename address-list X.br X.SH HP-UX COMPATIBILITY X.TP 10 XLevel: XHP-UX/CONTRIBUTED X.TP XOrigin: XHewlett-Packard X.SH DESCRIPTION X.I Fastmail Xis a low-level interface to the mail system that allows batch Xprocessing of mail. It's intended for mailing to very large Xgroups of people in a staggered fashion. X.PP XThe starting options are; X.TP 1.0i X.B "-b bcc-list" XThis allows a list of people to receive blind-carbon copies, or BCCs, of Xthe message. This list should be full email addresses. X.TP X.B "-c cc-list" XThis allows a list of people to receive carbon copies, or CCs, of Xthe message. This list should be full email addresses. X.TP X.B "-d" XDebug. This is helpful for strange, unfriendly errors from Xthe program (etc). X.TP X.B "-f from" XThis overrides the users name in the From: line, so that if Xthe user was x@y, and their name was MrX then the default XFrom: line would be "From: x@y (MrX)". Using "-f Joe" when Xinvoking this, though, would change it to "From: x@y (Joe)" X.TP X.B "-r replyto" XOccasionally, you might send mail but want the replies to go Xto a different address (very common with mailing lists). XThere is a header for this purpose called "Reply-To:" which Xcan be utilized by using this starting option. For example, Xwe could send mail with a reply-to to list-request by Xusing "-r list-request". The header generated would then Xbe of the form "Reply-To: list-request". X.TP X.B "-s subject" XThe subject of the message is specified by using Xthis starting option. X.SH EXAMPLE XLet's say we're user "big" on machine "big-vax" and we have a Xshell script called 'batch-mail' that contains the following Xlines: X.nf X X # X # Batch Mail - batch mailing of a file to a LOT of users X # X # Usage: batch-mail "from" "subject" filename X X sender_copy = $LOGIN X replto = "The-Mr-Big-list" X X fastmail -b $sender_copy -r $replyto -f "$1" -s "$2" $3 person1 X sleep 10 X fastmail -r $replyto -f "$1" -s "$2" $3 person2 X sleep 10 X fastmail -r $replyto -f "$1" -s "$2" $3 person3 X sleep 10 X fastmail -r $replyto -f "$1" -s "$2" $3 person4 X X < etc > X Xwith the invocation: X X batch-mail "Mr. Big" "Warning to all" warning.text X X.fi Xwould mail a copy of the 'warning.text' file to person1, person2, Xperson3, etc. "$LOGIN" will also receive a copy of the first message Xin the mail, \fIsilently\fR. Each resultant message will include the headers: X.nf X X From: big-vax!big (Mr. Big) X Subject: Warning to all X Reply-To: The-Mr-Big-list X X.fi XThis program should turn out to be considerably Xfaster than the alternative methods of accomplishing this task. X.SH FILES X/usr/lib/sendmail sendmail transport if available X.br X/bin/rmail transport if no sendmail X.br X/tmp/fastmail.$$ temporary file X.SH AUTHOR XDave Taylor, Hewlett-Packard Laboratories X.SH SEE\ ALSO Xsendmail(1), rmail(1), elm(1L) END_OF_doc/fastmail.1 if test 3033 -ne `wc -c <doc/fastmail.1`; then echo shar: \"doc/fastmail.1\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"doc/readmsg.1\" $3666 characters$ if test -f doc/readmsg.1 ; then echo shar: Will not over-write existing file \"doc/readmsg.1\" else sed "s/^X//" >doc/readmsg.1 <<'END_OF_doc/readmsg.1' X.TH READMSG 1L X.ad b X.SH NAME Xreadmsg - read messages from incoming mail X.SH SYNOPSIS X.B readmsg X[\fB-p\fR] X[\fB-n\fR] X[\fB-f filename\fR] X[\fB-h\fR] X.br X.B readmsg X[\fB-p\fR] X[\fB-n\fR] X[\fB-f filename\fR] X[\fB-h\fR] Xnumber [number ...] X.br X.B readmsg X[\fB-p\fR] X[\fB-n\fR] X[\fB-f filename\fR] X[\fB-h\fR] Xpattern X.br X.SH HP-UX COMPATIBILITY X.TP 10 XLevel: XHP-UX/CONTRIBUTED X.TP XOrigin: XHewlett-Packard X.SH DESCRIPTION X.I Readmsg Xis a program that gives the \fBElm\fR user the functionality of Xthe mailx "~r" command from the editor of their choice. There Xare three different ways of using the program; X.P XFirst off, if you're actually creating a reply to a message Xfrom within the \fBElm\fR system then \fIreadmsg\fR without any Xarguments will include a summary of the headers and the body Xof the message being replied Xto. If you aren't currently editing a message the program will Xreturn an error. X.P XSecondly, if you want to include certain messages, you can Xspecify them by listing their ordinal locations in the Xmail file (that is, their "message numbers") Xup to 25 at a time. The \fImeta-\fRnumber '$' is understood to mean Xthe last message in the mailfile. Similarly, '*' is understood to Xrepresent every message in the file (that is, 1-$) X.P XFinally, you can also specify a pattern that occurs in one of Xthe messages as a way of including it. This pattern can be Xtyped in directly (no quotes) if the words are separated by a Xsingle space in the actual message. The pattern matching is case Xsensitive, so "Hello" and "hello" are NOT the same thing!! X.sp X.P XThe \fB-f\fR flag indicates that you'd rather use the file specified Xfor the operations specified rather than the default mailbox (see Xthe way \fBElm\fR implements printing multiple messages for more Xinformation on this...) X.P XThe \fB-h\fR flag instructs the program to include the entire header Xof the matched message or messages when displaying their Xtext. (default is to display the From: Date: and Subject: lines Xonly) X.P XThe \fB-n\fR flag instructs the program to exclude \fIall\fR Xheaders. This is used mostly for extracting files mailed and Xsuch. X.P XFinally, the \fB-p\fR flag indicates that the program should Xput form-feeds (control-L) between message headers. X.sp X.SH "EXAMPLES" XFirst off, to use this from within \fBvi\fR to include the text of the Xcurrent message at the end of the current message, you could Xuse the command; X.nf X X !!readmsg X X.fi X(as you hit the 'G' the editor will put you at the bottom of the screen Xwith the '!' prompt). X.sp 2 XLet's look at something more interesting, however; X.sp XSuppose you have the mailfile; X.nf X X From joe Jun 3 1986 4:45:30 MST X Subject: hello X X Hey Guy! Wanta go out and have a milk this evening? X X Joe X X From john Jun 3 1986 4:48:20 MST X Subject: Dinner at Eight X From: John Dinley <xyz!john> X X Remember you should show up about eight, okay? X X - John D - X X From xxzyz!cron Jun 3 1986 5:02:43 MST X X Cannot connect to server: blob X Job 43243 deleted from queue. X X.fi XThe following commands will result in; X.nf X X $ readmsg 2 X [ display the second message, from John ] X X $ readmsg X [ an error, unless we're calling from \fBElm\fR ] X X $ readmsg BLOB X [ no match - case sensitive! ] X X $ readmsg -h connect to server X [ displays third message, including headers ] X X.fi X.SH FILES X/usr/mail/<username> The incoming mail X.br X$home/.readmsg The temp file from \fBElm\fR X.SH AUTHOR XDave Taylor, Hewlett-Packard Laboratories X.SH SEE\ ALSO Xnewmail(1L), Elm(1L) X.SH BUGS XThe '*' metacharacter doesn't always work as expected! X.br XPerhaps the pattern matching should be case insensitive? END_OF_doc/readmsg.1 if test 3666 -ne `wc -c <doc/readmsg.1`; then echo shar: \"doc/readmsg.1\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"filter/utils.c\" $2862 characters$ if test -f filter/utils.c ; then echo shar: Will not over-write existing file \"filter/utils.c\" else sed "s/^X//" >filter/utils.c <<'END_OF_filter/utils.c' X/** utils.c **/ X X/** Utility routines for the filter program... X X (C) Copyright 1986, Dave Taylor X**/ X X#include <stdio.h> X#include <pwd.h> X#include <ctype.h> X#include <fcntl.h> X X#include "defs.h" X#include "filter.h" X Xleave(reason) Xchar *reason; X{ X fprintf(stderr,"%sfilter (%s): LEAVE %s\n", BEEP, username, reason); X exit(1); X} X Xlog(what) Xint what; X{ X /** make an entry in the log files for the specified entry **/ X X FILE *fd; X char filename[SLEN]; X X if (! show_only) { X sprintf(filename, "%s/%s", home, filtersum); /* log action once! */ X if ((fd = fopen(filename, "a")) == NULL) { X fprintf(stderr,"%sfilter (%s): Couldn't open log file %s\n", X BEEP, filename); X fd = stdout; X } X fprintf(fd, "%d\n", rule_choosen); X fclose(fd); X } X X sprintf(filename, "%s/%s", home, filterlog); X X if (show_only) X fd = stdout; X else if ((fd = fopen(filename, "a")) == NULL) { X fprintf(stderr,"%sfilter (%s): Couldn't open log file %s\n", X BEEP, filename); X fd = stdout; X } X X setvbuf(fd, NULL, _IOFBF, BUFSIZ); X X if (strlen(from) + strlen(subject) > 60) X fprintf(fd, "\nMail from %s\n\tabout %s\n", from, subject); X else X fprintf(fd, "\nMail from %s about %s\n", from, subject); X X if (rule_choosen != -1) X if (rules[rule_choosen].condition->matchwhat == TO) X fprintf(fd, "\t(addressed to %s)\n", to); X X switch (what) { X case DELETE : fprintf(fd, "\tDELETED"); break; X case SAVE : fprintf(fd, "\tSAVED in file \"%s\"", X rules[rule_choosen].argument2); break; X case SAVECC : fprintf(fd,"\tSAVED in file \"%s\" AND PUT in mailbox", X rules[rule_choosen].argument2); break; X case FORWARD: fprintf(fd, "\tFORWARDED to \"%s\"", X rules[rule_choosen].argument2); break; X case EXEC : fprintf(fd, "\tEXECUTED \"%s\"", X rules[rule_choosen].argument2); break; X case LEAVE : fprintf(fd, "\tPUT in mailbox"); break; X } X X if (rule_choosen != -1) X fprintf(fd, " by rule #%d\n", rule_choosen+1); X else X fprintf(fd, ": the default action\n"); X X fflush(fd); X fclose(fd); X} X Xint Xcontains(string, pattern) Xchar *string, *pattern; X{ X /** Returns TRUE iff pattern occurs IN IT'S ENTIRETY in buffer. **/ X X register int i = 0, j = 0; X X while (string[i] != '\0') { X while (tolower(string[i++]) == tolower(pattern[j++])) X if (pattern[j] == '\0') X return(TRUE); X i = i - j + 1; X j = 0; X } X return(FALSE); X} X Xchar *itoa(i, two_digit) Xint i, two_digit; X{ X /** return 'i' as a null-terminated string. If two-digit use that X size field explicitly! **/ X X static char value[10]; X X if (two_digit) X sprintf(value, "%02d", i); X else X sprintf(value, "%d", i); X X return( (char *) value); X} X Xlowercase(string) Xchar *string; X{ X /** translate string into all lower case **/ X X register int i; X X for (i=0; i < strlen(string); i++) X if (isupper(string[i])) X string[i] = tolower(string[i]); X} END_OF_filter/utils.c if test 2862 -ne `wc -c <filter/utils.c`; then echo shar: \"filter/utils.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/Makefile\" $2597 characters$ if test -f src/Makefile ; then echo shar: Will not over-write existing file \"src/Makefile\" else sed "s/^X//" >src/Makefile <<'END_OF_src/Makefile' X# X# Makefile for the ELM mail program. X# X# (C) Copyright 1986, Dave Taylor X# X# Last modification: August 15th, 1986 X XSHELL=/bin/sh X XDEFINE= -DBSD XLIB2 = -lcurses X X# IF you're on an ACSnet system (Australia) then X# you'll want to uncomment the following; X X# DEFINE= ${DEFINE} -DACSNET X X############################## X XCFILES= addr_utils.c alias.c aliasdb.c aliaslib.c args.c bounceback.c \ X builtin.c calendar.c connect_to.c curses.c date.c delete.c \ X domains.c edit.c editmsg.c elm.c encode.c errno.c file.c \ X file_utils.c fileio.c forms.c getopt.c hdrconfg.c help.c \ X initialize.c input_utils.c leavembox.c limit.c mailmsg1.c \ X mailmsg2.c mailtime.c mkhdrs.c newmbox.c opt_utils.c options.c \ X output_utils.c pattern.c pmalloc.c quit.c read_rc.c remail.c \ X reply.c return_addr.c savecopy.c screen.c showmsg.c signals.c \ X softkeys.c sort.c string2.c strings.c syscall.c utils.c \ X save_opts.c validname.c X XHEADERS=../hdrs/curses.h ../hdrs/defs.h ../hdrs/headers.h ../hdrs/sysdefs.h X XOBJS = addr_utils.o alias.o aliasdb.o aliaslib.o args.o bounceback.o \ X builtin.o calendar.o connect_to.o curses.o date.o delete.o \ X domains.o edit.o editmsg.o elm.o encode.o errno.o file.o \ X file_utils.o fileio.o forms.o getopt.o hdrconfg.o help.o \ X initialize.o input_utils.o leavembox.o limit.o mailmsg1.o \ X mailmsg2.o mailtime.o mkhdrs.o newmbox.o opt_utils.o options.o \ X output_utils.o pattern.o pmalloc.o quit.o read_rc.o remail.o \ X reply.o return_addr.o savecopy.o screen.o showmsg.o signals.o \ X softkeys.o sort.o string2.o strings.o syscall.o utils.o \ X save_opts.o validname.o X XBIN= ../bin XLIBS= -ltermcap XCFLAGS= -O -I../hdrs XCC= /bin/cc XRM= /bin/rm -f X X../bin/elm: ${OBJS} ${EXTRA} ${HEADERS} ../hdrs/elm.h X ${CC} -o ${BIN}/elm -n ${OBJS} ${LIBS} ${LIB2} X X.c.o: ${HEADERS} X ${CC} -c ${CFLAGS} ${DEFINE} $*.c X Xcurses.o: curses.c ../hdrs/curses.h X ${CC} -c ${CFLAGS} -DRAWMODE ${DEFINE} curses.c X X# curses.c : curses.q X# @../bin/quickscreen curses.q X# X# curses.q : X# @cp curses.c curses.q X Xclean: X ${RM} ${OBJS} LINT.OUT ../bin/elm X Xlint: LINT.OUT X XLINT.OUT: ${CFILES} X lint -DRAWMODE -I../hdrs ${CFILES} -ltermcap > LINT.OUT X Xlisting: LISTING X XLISTING: Makefile INDEX ${HEADERS} ${CFILES} X @echo adding file 'Makefile'... X @/bin/echo \\f > LISTING X @cat Makefile >> LISTING X @echo adding file 'INDEX'... X @/bin/echo \\f >> LISTING X @cat INDEX >> LISTING X @../bin/makelisting ${HEADERS} ${CFILES} X @echo LISTING generated. X Xindex: INDEX X XINDEX: ${CFILES} ${HEADERS} X @echo Creating function definition index X @index *.c | sort > INDEX X @echo File INDEX generated END_OF_src/Makefile if test 2597 -ne `wc -c <src/Makefile`; then echo shar: \"src/Makefile\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/Makefile.mstr\" $2589 characters$ if test -f src/Makefile.mstr ; then echo shar: Will not over-write existing file \"src/Makefile.mstr\" else sed "s/^X//" >src/Makefile.mstr <<'END_OF_src/Makefile.mstr' X# X# Makefile for the ELM mail program. X# X# (C) Copyright 1986, Dave Taylor X# X# Last modification: August 15th, 1986 X XSHELL=/bin/sh X XDEFINE= >os-define< XLIB2 = >lib2< X X# IF you're on an ACSnet system (Australia) then X# you'll want to uncomment the following; X X# DEFINE= ${DEFINE} -DACSNET X X############################## X XCFILES= addr_utils.c alias.c aliasdb.c aliaslib.c args.c bounceback.c \ X builtin.c calendar.c connect_to.c curses.c date.c delete.c \ X domains.c edit.c editmsg.c elm.c encode.c errno.c file.c \ X file_utils.c fileio.c forms.c getopt.c hdrconfg.c help.c \ X initialize.c input_utils.c leavembox.c limit.c mailmsg1.c \ X mailmsg2.c mailtime.c mkhdrs.c newmbox.c opt_utils.c options.c \ X output_utils.c pattern.c pmalloc.c quit.c read_rc.c remail.c \ X reply.c return_addr.c savecopy.c screen.c showmsg.c signals.c \ X softkeys.c sort.c string2.c strings.c syscall.c utils.c \ X save_opts.c validname.c X XHEADERS=../hdrs/curses.h ../hdrs/defs.h ../hdrs/headers.h ../hdrs/sysdefs.h X XOBJS = addr_utils.o alias.o aliasdb.o aliaslib.o args.o bounceback.o \ X builtin.o calendar.o connect_to.o curses.o date.o delete.o \ X domains.o edit.o editmsg.o elm.o encode.o errno.o file.o \ X file_utils.o fileio.o forms.o getopt.o hdrconfg.o help.o \ X initialize.o input_utils.o leavembox.o limit.o mailmsg1.o \ X mailmsg2.o mailtime.o mkhdrs.o newmbox.o opt_utils.o options.o \ X output_utils.o pattern.o pmalloc.o quit.o read_rc.o remail.o \ X reply.o return_addr.o savecopy.o screen.o showmsg.o signals.o \ X softkeys.o sort.o string2.o strings.o syscall.o utils.o \ X save_opts.o validname.o X XBIN= ../bin XLIBS= >libs< XCFLAGS= -O -I../hdrs XCC= >cc< XRM= >rm< X X../bin/elm: ${OBJS} ${EXTRA} ${HEADERS} ../hdrs/elm.h X ${CC} -o ${BIN}/elm -n ${OBJS} ${LIBS} ${LIB2} X X.c.o: ${HEADERS} X ${CC} -c ${CFLAGS} ${DEFINE} $*.c X Xcurses.o: curses.c ../hdrs/curses.h X ${CC} -c ${CFLAGS} -DRAWMODE ${DEFINE} curses.c X X# curses.c : curses.q X# @../bin/quickscreen curses.q X# X# curses.q : X# @cp curses.c curses.q X Xclean: X ${RM} ${OBJS} LINT.OUT ../bin/elm X Xlint: LINT.OUT X XLINT.OUT: ${CFILES} X lint -DRAWMODE -I../hdrs ${CFILES} -ltermcap > LINT.OUT X Xlisting: LISTING X XLISTING: Makefile INDEX ${HEADERS} ${CFILES} X @echo adding file 'Makefile'... X @/bin/echo \\f > LISTING X @cat Makefile >> LISTING X @echo adding file 'INDEX'... X @/bin/echo \\f >> LISTING X @cat INDEX >> LISTING X @../bin/makelisting ${HEADERS} ${CFILES} X @echo LISTING generated. X Xindex: INDEX X XINDEX: ${CFILES} ${HEADERS} X @echo Creating function definition index X @index *.c | sort > INDEX X @echo File INDEX generated END_OF_src/Makefile.mstr if test 2589 -ne `wc -c <src/Makefile.mstr`; then echo shar: \"src/Makefile.mstr\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/args.c\" $2975 characters$ if test -f src/args.c ; then echo shar: Will not over-write existing file \"src/args.c\" else sed "s/^X//" >src/args.c <<'END_OF_src/args.c' X/** args.c **/ X X/** starting argument parsing routines for ELM system... X X (C) Copyright 1986 Dave Taylor X**/ X X#include "headers.h" X X#define DONE 0 X#define ERROR -1 X Xextern char *optional_arg; /* optional argument as we go */ Xextern int opt_index; /* argnum + 1 when we leave */ X Xvoid exit(); /* just keeping lint happy.... */ X Xparse_arguments(argc, argv, to_whom) Xint argc; Xchar *argv[], *to_whom; X{ X /** Set flags according to what was given to program. If we are X fed a name or series of names, put them into the 'to_whom' buffer X and set "mail_only" to TRUE **/ X X register int c = 0, check_size = 0; X char *strcpy(); X X infile[0] = '\0'; X to_whom[0] = '\0'; X batch_subject[0] = '\0'; X X while ((c = get_options(argc, argv, "?acd:f:hkKms:wz")) > 0) { X switch (c) { X case 'a' : arrow_cursor++; break; X case 'c' : check_only++; break; X case 'd' : debug = atoi(optional_arg); break; X case 'f' : strcpy(infile, optional_arg); X mbox_specified = 2; break; X case '?' : X case 'h' : args_help(); X case 'k' : hp_terminal++; break; X case 'K' : hp_terminal++; hp_softkeys++; break; X case 'm' : mini_menu = 0; break; X case 's' : strcpy(batch_subject, optional_arg); break; X case 'w' : warnings = 0; break; X case 'z' : check_size++; break; X } X } X X if (c == ERROR) { X printf( X "Usage: %s [achkKmwz] [-d level] [-f file] [-s subject] <names>\n\n", X argv[0]); X args_help(); X } X X if (opt_index < argc) { X while (opt_index < argc) { X sprintf(to_whom, "%s%s%s", to_whom, X to_whom[0] != '\0'? " " : "", argv[opt_index]); X mail_only++; X opt_index++; X } X check_size = 0; /* NEVER do this if we're mailing!! */ X } X X if (strlen(batch_subject) > 0 && ! mail_only) X exit(printf( X "\n\rDon't understand specifying a subject and no-one to send to!\n\r")); X X if (!isatty(fileno(stdin)) && strlen(batch_subject) == 0 && !check_only) X strcpy(batch_subject, DEFAULT_BATCH_SUBJECT); X X if (check_size) X check_mailfile_size(); X} X Xargs_help() X{ X /** print out possible starting arguments... **/ X X printf("\nPossible Starting Arguments for ELM program:\n\n"); X printf("\targ\t\t\tMeaning\n"); X printf("\t -a \t\tArrow - use the arrow pointer regardless\n"); X printf("\t -c \t\tCheckalias - check the given aliases only\n"); X printf("\t -dn\t\tDebug - set debug level to 'n'\n"); X printf("\t -fx\t\tFile - read file 'x' rather than mailbox\n"); X printf("\t -h \t\tHelp - give this list of options\n"); X printf("\t -k \t\tKeypad - enable HP 2622 terminal keyboard\n"); X printf("\t -K \t\tKeypad&softkeys - enable use of softkeys + \"-k\"\n"); X printf("\t -m \t\tMenu - Turn off menu, using more of the screen\n"); X printf("\t -sx\t\tSubject 'x' - for batchmailing\n"); X printf("\t -w \t\tSupress warning messages...\n"); X printf("\t -z \t\tZero - don't enter Elm if no mail is pending\n"); X printf("\n"); X printf("\n"); X exit(1); X} END_OF_src/args.c if test 2975 -ne `wc -c <src/args.c`; then echo shar: \"src/args.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/bounceback.c\" $2525 characters$ if test -f src/bounceback.c ; then echo shar: Will not over-write existing file \"src/bounceback.c\" else sed "s/^X//" >src/bounceback.c <<'END_OF_src/bounceback.c' X/** bounceback.c **/ X X/** This set of routines implement the bounceback feature of the mailer. X This feature allows mail greater than 'n' hops away (n specified by X the user) to have a 'cc' to the user through the remote machine. X X Due to the vagaries of the Internet addressing (uucp -> internet -> uucp) X this will NOT generate bounceback copies with mail to an internet host! X X (C) Copyright 1986 by Dave Taylor X**/ X X#include "headers.h" X Xchar *bounce_off_remote(), /* forward declaration */ X *strcat(), *strcpy(); X Xint Xuucp_hops(to) Xchar *to; X{ X /** Given the entire "To:" list, return the number of hops in the X first address (a hop = a '!') or ZERO iff the address is to a X non uucp address. X **/ X X register int hopcount = 0, index; X X for (index = 0; ! whitespace(to[index]) && to[index] != '\0'; index++) { X if (to[index] == '!') X hopcount++; X else if (to[index] == '@' || to[index] == '%' || to[index] == ':') X return(0); /* don't continue! */ X } X X return(hopcount); X} X Xchar *bounce_off_remote(to) Xchar *to; X{ X /** Return an address suitable for framing (no, that's not it...) X Er, suitable for including in a 'cc' line so that it ends up X with the bounceback address. The method is to take the first X address in the To: entry and break it into machines, then X build a message up from that. For example, consider the X following address: X a!b!c!d!e!joe X the bounceback address would be; X a!b!c!d!e!d!c!b!a!ourmachine!ourname X simple, eh? X **/ X X static char address[LONG_STRING]; /* BEEG address buffer! */ X X char host[MAX_HOPS][SHORT_SLEN]; /* for breaking up addr */ X register int hostcount = 0, hindex = 0, X index; X X for (index = 0; !whitespace(to[index]) && to[index] != '\0'; index++) { X if (to[index] == '!') { X host[hostcount][hindex] = '\0'; X hostcount++; X hindex = 0; X } X else X host[hostcount][hindex++] = to[index]; X } X X /* we have hostcount hosts... */ X X strcpy(address, host[0]); /* initialize it! */ X X for (index=1; index < hostcount; index++) { X strcat(address, "!"); X strcat(address, host[index]); X } X X /* and now the same thing backwards... */ X X for (index = hostcount -2; index > -1; index--) { X strcat(address, "!"); X strcat(address, host[index]); X } X X /* and finally, let's tack on our machine and login name */ X X strcat(address, "!"); X strcat(address, hostname); X strcat(address, "!"); X strcat(address, username); X X /* and we're done!! */ X X return( (char *) address ); X} END_OF_src/bounceback.c if test 2525 -ne `wc -c <src/bounceback.c`; then echo shar: \"src/bounceback.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/connect_to.c\" $3860 characters$ if test -f src/connect_to.c ; then echo shar: Will not over-write existing file \"src/connect_to.c\" else sed "s/^X//" >src/connect_to.c <<'END_OF_src/connect_to.c' X/** connect_to.c **/ X X/** This contains the routine(s) needed to have the Elm mailer figure X out what machines the current machine can talk to. This can be X done in one of two ways - either the program can read the L.sys X file, or (if it fails or "UUNAME" define is present) will invoke X uuname to a file, then read the file in! X X (C) Copyright Dave Taylor, 1986 X**/ X X#include "headers.h" X Xchar *strcpy(); X Xstruct lsys_rec *pmalloc(); X Xget_connections() X{ X X /** get the direct connections that this machine has, by hook X or by crook (so to speak) X **/ X X#ifndef USE_UUNAME X FILE *lsysfile; X char buffer[SLEN], sysname[NLEN]; X struct lsys_rec *system_record, *previous_record; X int loc_on_line; X X previous_record = NULL; X if ((lsysfile = fopen(Lsys,"r")) == NULL) { X dprint1(1, "Warning: Can't open L.sys file %s (read_lsys)\n", Lsys); X#endif X X if (read_uuname() == -1) { X error("Warning: couldn't figure out system connections..."); X talk_to_sys = NULL; X } X X#ifndef USE_UUNAME X /** ELSE: already read in uuname() output if we're here!! **/ X return; X } X X while (fgets(buffer, SLEN, lsysfile) != NULL) { X sscanf(buffer,"%s", sysname); X X if (previous_record == NULL) { X dprint1(2, "L.sys\tdirect connection to %s, ", sysname); X loc_on_line = 30 + strlen(sysname); X previous_record = pmalloc(sizeof *talk_to_sys); X X strcpy(previous_record->name, sysname); X previous_record->next = NULL; X talk_to_sys = previous_record; X } X else if (! talk_to(sysname) && sysname[0] != '#') { X if (loc_on_line + strlen(sysname) > 80) { X dprint0(2, "\n\t"); X loc_on_line = 8; X } X dprint1(2, "%s, ", sysname); X loc_on_line += (strlen(sysname) + 2); X system_record = pmalloc(sizeof *talk_to_sys); X X strcpy(system_record->name, sysname); X system_record->next = NULL; X previous_record->next = system_record; X previous_record = system_record; X } X } X X fclose(lsysfile); X X if (loc_on_line != 8) X dprint0(2, "\n"); X X dprint0(2, "\n"); /* for a nice format! Yeah! */ X#endif X} X Xint Xread_uuname() X{ X /** This routine trys to use the uuname routine to get the names of X all the machines that this machine connects to...it returns X -1 on failure. X **/ X X FILE *fd; X char buffer[SLEN], filename[SLEN]; X struct lsys_rec *system_record, *previous_record; X int loc_on_line; X X sprintf(filename, "%s%d", temp_uuname, getpid()); X sprintf(buffer,"%s > %s", uuname, filename); X X if (system_call(buffer, SH) != 0) { X dprint0(1, "Can't get uuname info - system call failed!\n"); X unlink(filename); /* insurance */ X return(-1); X } X X if ((fd = fopen(filename, "r")) == NULL) { X dprint1(1, "Can't get uuname info - can't open file %s for reading\n", X filename); X unlink(filename); /* insurance */ X return(-1); X } X X previous_record = NULL; X X while (fgets(buffer, SLEN, fd) != NULL) { X no_ret(buffer); X if (previous_record == NULL) { X dprint1(2, "uuname\tdirect connection to %s, ", buffer); X loc_on_line = 30 + strlen(buffer); X previous_record = pmalloc(sizeof *talk_to_sys); X X strcpy(previous_record->name, buffer); X previous_record->next = NULL; X talk_to_sys = previous_record; X } X else { /* don't have to check uniqueness - uuname does that! */ X if (loc_on_line + strlen(buffer) > 80) { X dprint0(2, "\n\t"); X loc_on_line = 8; X } X dprint1(2, "%s, ", buffer); X loc_on_line += (strlen(buffer) + 2); X system_record = pmalloc(sizeof *talk_to_sys); X X strcpy(system_record->name, buffer); X system_record->next = NULL; X previous_record->next = system_record; X previous_record = system_record; X } X } X X fclose(fd); X X (void) unlink(filename); /* kill da temp file!! */ X X dprint0(2, "\n"); /* for a nice format! Yeah! */ X X return(0); /* it all went okay... */ X} END_OF_src/connect_to.c if test 3860 -ne `wc -c <src/connect_to.c`; then echo shar: \"src/connect_to.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/errno.c\" $2500 characters$ if test -f src/errno.c ; then echo shar: Will not over-write existing file \"src/errno.c\" else sed "s/^X//" >src/errno.c <<'END_OF_src/errno.c' X/** errno.c **/ X X/** This routine maps error numbers to error names and error messages. X These are all directly ripped out of the include file errno.h, and X are HOPEFULLY standardized across the different breeds of Unix!! X X If (alas) yours are different, you should be able to use awk to X mangle your errno.h file quite simply... X X (C) Copyright 1986 Dave Taylor X**/ X X#include "headers.h" X Xchar *err_name[] = { X/* 0 */ "NOERROR", "No error status currently", X/* 1 */ "EPERM", "Not super-user", X/* 2 */ "ENOENT", "No such file or directory", X/* 3 */ "ESRCH", "No such process", X/* 4 */ "EINTR", "Interrupted system call", X/* 5 */ "EIO", "I/O error", X/* 6 */ "ENXIO", "No such device or address", X/* 7 */ "E2BIG", "Arg list too long", X/* 8 */ "ENOEXEC", "Exec format error", X/* 9 */ "EBADF", "Bad file number", X/* 10 */ "ECHILD", "No children", X/* 11 */ "EAGAIN", "No more processes", X/* 12 */ "ENOMEM", "Not enough core", X/* 13 */ "EACCES", "Permission denied", X/* 14 */ "EFAULT", "Bad address", X/* 15 */ "ENOTBLK", "Block device required", X/* 16 */ "EBUSY", "Mount device busy", X/* 17 */ "EEXIST", "File exists", X/* 18 */ "EXDEV", "Cross-device link", X/* 19 */ "ENODEV", "No such device", X/* 20 */ "ENOTDIR", "Not a directory", X/* 21 */ "EISDIR", "Is a directory", X/* 22 */ "EINVAL", "Invalid argument", X/* 23 */ "ENFILE", "File table overflow", X/* 24 */ "EMFILE", "Too many open files", X/* 25 */ "ENOTTY", "Not a typewriter", X/* 26 */ "ETXTBSY", "Text file busy", X/* 27 */ "EFBIG", "File too large", X/* 28 */ "ENOSPC", "No space left on device", X/* 29 */ "ESPIPE", "Illegal seek", X/* 30 */ "EROFS", "Read only file system", X/* 31 */ "EMLINK", "Too many links", X/* 32 */ "EPIPE", "Broken pipe", X/* 33 */ "EDOM", "Math arg out of domain of func", X/* 34 */ "ERANGE", "Math result not representable", X/* 35 */ "ENOMSG", "No message of desired type", X/* 36 */ "EIDRM", "Identifier removed" X }; X Xchar *strcpy(); X Xchar *error_name(errnumber) Xint errnumber; X{ X static char buffer[50]; X X if (errnumber < 0 || errnumber > 36) X sprintf(buffer,"ERR-UNKNOWN (%d)", errnumber); X else X strcpy(buffer, err_name[2*errnumber]); X X return( (char *) buffer); X} X Xchar *error_description(errnumber) Xint errnumber; X{ X static char buffer[50]; X X if (errnumber < 0 || errnumber > 36) X sprintf(buffer,"Unknown error - %d - No description", errnumber); X else X strcpy(buffer, err_name[2*errnumber + 1]); X X return ( (char *) buffer); X} END_OF_src/errno.c if test 2500 -ne `wc -c <src/errno.c`; then echo shar: \"src/errno.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/fileio.c\" $3020 characters$ if test -f src/fileio.c ; then echo shar: Will not over-write existing file \"src/fileio.c\" else sed "s/^X//" >src/fileio.c <<'END_OF_src/fileio.c' X/** fileio.c **/ X X/** File I/O routines, including deletion from the mailbox! X X (C) Copyright 1986 Dave Taylor X**/ X X#include "headers.h" X#include <ctype.h> X#include <errno.h> X X#ifdef BSD X#undef tolower X#endif X Xextern int errno; X Xchar *error_name(); X Xcopy_message(prefix, dest_file, remove_header, remote) Xchar *prefix; XFILE *dest_file; Xint remove_header, remote; X{ X /** Copy current message to destination file, with optional 'prefix' X as the prefix for each line. If remove_header is true, it will X skip lines in the message until it finds the end of header line... X then it will start copying into the file... If remote is true X then it will append "remote from <hostname>" at the end of the X very first line of the file (for remailing) X **/ X X char buffer[LONG_SLEN]; X register int ok = 1, lines, in_header = 1, first_line = TRUE; X X /** get to the first line of the message desired **/ X X if (fseek(mailfile, header_table[current-1].offset, 0) == -1) { X dprint2(1,"ERROR: Attempt to seek %d bytes into file failed (%s)", X header_table[current-1].offset, "copy_message"); X error1("ELM [seek] failed trying to read %d bytes into file", X header_table[current-1].offset); X return; X } X X /* how many lines in message? */ X X lines = header_table[current-1].lines; X X /* now while not EOF & still in message... copy it! */ X X while (ok && lines--) { X ok = (int) (fgets(buffer, LONG_SLEN, mailfile) != NULL); X if (strlen(buffer) < 2) in_header = 0; X if (ok) X if (! (remove_header && in_header)) X if (first_line && remote) { X no_ret(buffer); X fprintf(dest_file, "%s%s remote from %s\n", X prefix, buffer, hostname); X first_line = FALSE; X } X else if (! in_header && first_word(buffer, "From ")) { X dprint0(1,"\n*** Internal Problem...Tried to add the following;\n"); X dprint1(1," '%s'\nto output file (copy_message) ***\n", buffer); X ok = 0; /* STOP NOW! */ X } X else X fprintf(dest_file, "%s%s", prefix, buffer); X } X if (strlen(buffer) + strlen(prefix) > 1) X fprintf(dest_file, "\n"); /* blank line to keep mailx happy *sigh* */ X} X X#ifdef SITE_HIDING X Xint Xis_a_hidden_user(specific_username) Xchar *specific_username; X{ X /** Returns true iff the username is present in the list of X 'hidden users' on the system. X **/ X X FILE *hidden_users; X char buffer[SLEN]; X X this is shit and should be flagged as bad news! X X if ((hidden_users = fopen (HIDDEN_SITE_USERS,"r")) == NULL) { X dprint2(1,"Couldn't open hidden site file %s [%s]\n", X HIDDEN_SITE_USERS, error_name(errno)); X return(FALSE); X } X X while (fscanf(hidden_users, "%s", buffer) != EOF) X if (strcmp(buffer, specific_username) == 0) { X dprint1(3,"** Found user '%s' in hidden site file!\n", X specific_username); X fclose(hidden_users); X return(TRUE); X } X X fclose(hidden_users); X dprint1(3,"** Couldn't find user '%s' in hidden site file!\n", X specific_username); X X return(FALSE); X} X X#endif END_OF_src/fileio.c if test 3020 -ne `wc -c <src/fileio.c`; then echo shar: \"src/fileio.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/mkhdrs.c\" $3189 characters$ if test -f src/mkhdrs.c ; then echo shar: Will not over-write existing file \"src/mkhdrs.c\" else sed "s/^X//" >src/mkhdrs.c <<'END_OF_src/mkhdrs.c' X/** mkhdrs.c **/ X X/** This contains all the header generating routines for the ELM X program. X X (C) Copyright 1985 Dave Taylor X X**/ X X#include <stdio.h> X#include "headers.h" X Xextern char in_reply_to[SLEN]; X Xchar *strcpy(); Xunsigned long sleep(); X Xgenerate_reply_to(msg) Xint msg; X{ X /** Generate an 'in-reply-to' message... **/ X char buffer[SLEN]; X X X if (msg == -1) /* not a reply! */ X in_reply_to[0] = '\0'; X else { X if (chloc(header_table[msg].from, '!') != -1) X tail_of(header_table[msg].from, buffer, FALSE); X else X strcpy(buffer, header_table[msg].from); X sprintf(in_reply_to, "Message from \"%s\" of %s %s, %s at %s", X buffer, X header_table[msg].month, X header_table[msg].day, X header_table[msg].year, X header_table[msg].time); X } X} X Xadd_mailheaders(filedesc) XFILE *filedesc; X{ X /** Add the users .mailheaders file if available. Allow backquoting X in the file, too, for fortunes, etc...*shudder* X **/ X X FILE *fd; X char filename[SLEN], buffer[LONG_SLEN]; X X sprintf(filename, "%s/%s", home, mailheaders); X X if ((fd = fopen(filename, "r")) != NULL) { X while (fgets(buffer, LONG_SLEN, fd) != NULL) X if (strlen(buffer) < 2) { X dprint0(2, X "Strlen of line from .elmheaders is < 2 (write_header_info)"); X if (mail_only) X printf("Warning: blank line in %s ignored!\r\n", filename); X else { X error1("Warning: blank line in %s ignored!", filename); X sleep(2); X } X } X else if (occurances_of(BACKQUOTE, buffer) == 2) X expand_backquote(buffer, filedesc); X else X fprintf(filedesc, "%s", buffer); X X fclose(fd); X } X} X Xexpand_backquote(buffer, filedesc) Xchar *buffer; XFILE *filedesc; X{ X /** This routine is called with a line of the form: X Fieldname: `command` X and is expanded accordingly.. X **/ X X FILE *fd; X char command[SLEN], command_buffer[SLEN], fname[SLEN], X prefix[SLEN]; X register int i, j = 0; X X for (i=0; buffer[i] != BACKQUOTE; i++) X prefix[j++] = buffer[i]; X prefix[j] = '\0'; X X j = 0; X X for (i=chloc(buffer, BACKQUOTE)+1; buffer[i] != BACKQUOTE;i++) X command[j++] = buffer[i]; X command[j] = '\0'; X X sprintf(fname,"%s%d", temp_print, getpid()); X X sprintf(command_buffer, "%s > %s", command, fname); X X system_call(command_buffer, SH); X X if ((fd = fopen(fname, "r")) == NULL) { X if (mail_only) X printf("\nbackquoted command \"%s\" in .elmheaders failed\n", X command); X else X error1("backquoted command \"%s\" in .elmheaders failed", command); X return; X } X X /* If we get a line that is less than 80 - length of prefix then we X can toss it on the same line, otherwise, simply prepend each line X *starting with this line* with a leading tab and cruise along */ X X if (fgets(command_buffer, SLEN, fd) == NULL) X fprintf(filedesc, prefix); X else { X if (strlen(command_buffer) + strlen(prefix) < 80) X fprintf(filedesc, "%s%s", prefix, command_buffer); X else X fprintf(filedesc, "%s\n\t%s", prefix, command_buffer); X X while (fgets(command_buffer, SLEN, fd) != NULL) X fprintf(filedesc, "\t%s", command_buffer); X X fclose(fd); X } X X unlink(fname); /* don't leave the temp file laying around! */ X} END_OF_src/mkhdrs.c if test 3189 -ne `wc -c <src/mkhdrs.c`; then echo shar: \"src/mkhdrs.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/showmsg_cmd.c\" $3188 characters$ if test -f src/showmsg_cmd.c ; then echo shar: Will not over-write existing file \"src/showmsg_cmd.c\" else sed "s/^X//" >src/showmsg_cmd.c <<'END_OF_src/showmsg_cmd.c' X/** showmsg_cmd.c **/ X X/** This is an interface for the showmsg command line. The possible X functions that could be invoked from the showmsg command line are X almost as numerous as those from the main command line and include X the following; X X | = pipe this message to command... X ! = call Unix command X < = scan message for calendar info X b = bounce (remail) message X d = mark message for deletion X e = edit entire mailbox X f = forward message X g = group reply X j,n = move to body of next message X k = move to body of previous message X p = print this (all tagged) message X r = reply to this message X s = save this message to a maibox/folder X t = tag this message X x = Exit Elm NOW X X all commands not explicitly listed here are returned as unprocessed X to be dealt with at the main command level. X X This function returns 0 if it dealt with the command, or the command X otherwise. X**/ X X#include "headers.h" X Xprocess_showmsg_command(command) Xchar command; X{ X switch (command) { X case '|' : clear_bottom_of_screen(); X PutLine0(LINES-3,0,"Command: pipe"); X softkeys_off(); X (void) pipe(); /* do pipe regardless */ X softkeys_on(); X return(0); /* must have new screen */ X X case '!' : clear_bottom_of_screen(); X PutLine0(LINES-3,0,"Command: system call"); X softkeys_off(); X (void) subshell(); /* do shell regardless */ X softkeys_on(); X return(0); /* must have new screen */ X X case '<' : X#ifdef ENABLE_CALENDAR X scan_calendar(); X#else X error("can't scan for calendar entries!"); X#endif X break; X X case 'b' : clear_bottom_of_screen(); X PutLine0(LINES-3,0,"Command: bounce message"); X remail(); X return(0); /* must have new screen */ X X case 'd' : delete(TRUE); X break; X X case 'e' : edit_mailbox(); X return(0); /* must have new screen */ X X case 'f' : clear_bottom_of_screen(); X PutLine0(LINES-3,0,"Command: forward message"); X (void) forward(); X return(0); /* must have new screen */ X X case 'g' : clear_bottom_of_screen(); X PutLine0(LINES-3,0,"Command: group reply"); X (void) reply_to_everyone(); X return(0); /* must have new screen */ X X case 'j' : X case 'n' : if (current < message_count) X show_msg(++current); X return(0); X X case 'k' : if (current > 0) X show_msg(--current); X return(0); X X X case 'p' : printmsg(); X break; X X case 'r' : clear_bottom_of_screen(); X PutLine0(LINES-3,0,"Command: reply to message"); X (void) reply(); X return(0); /* must have new screen */ X X case 's' : clear_bottom_of_screen(); X PutLine0(LINES-3,0,"Command: save message"); X (void) save(); X break; X X case 't' : tag_message(); X break; X X case 'x' : leave(); X X case '\n': X case '\r': return(0); /* avoid <return> looping */ X X default : return(command); /* couldn't deal with it! */ X } X X return(1); /* done with it! */ X} X Xclear_bottom_of_screen() X{ X /** clear the last 4 lines of the screen... **/ X X MoveCursor(LINES-4, 0); X CleartoEOS(); X} END_OF_src/showmsg_cmd.c if test 3188 -ne `wc -c <src/showmsg_cmd.c`; then echo shar: \"src/showmsg_cmd.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"src/softkeys.c\" $2576 characters$ if test -f src/softkeys.c ; then echo shar: Will not over-write existing file \"src/softkeys.c\" else sed "s/^X//" >src/softkeys.c <<'END_OF_src/softkeys.c' X/** softkeys.c **/ X X/** This file and associated routines: (C) Copyright 1986, Dave Taylor **/ X X#include <stdio.h> X#include "headers.h" X Xdefine_softkeys(level) Xint level; X{ X if (! hp_softkeys) return; X X if (level == MAIN) { X X define_key(f1, " Show Msg", "\r"); X define_key(f2, " Mail Msg", "m"); X define_key(f3, " Reply to Msg", "r"); X X if (user_level == 0) { X define_key(f4, " Save Msg", "s"); X define_key(f5, " Delete Msg", "d"); X define_key(f6, "Undelete Msg", "u"); X } X else { X define_key(f4, " Change Mailbox", "c"); X define_key(f5, " Save Msg", "s"); X define_key(f6, " Delete/Undelete", "^"); X } X X define_key(f7, " Print Msg", "p"); X define_key(f8, " Quit Elm", "q"); X } X else if (level == ALIAS) { X define_key(f1, " Alias Current", "a"); X define_key(f2, " Check Person", "p"); X define_key(f3, " Check System", "s"); X define_key(f4, " Make Alias", "m"); X clear_key(f5); X clear_key(f6); X clear_key(f7); X define_key(f8, " Return to Elm", "r"); X } X else if (level == YESNO) { X define_key(f1, " Yes", "y"); X clear_key(f2); X clear_key(f3); X clear_key(f4); X clear_key(f5); X clear_key(f6); X clear_key(f7); X define_key(f8, " No", "n"); X } X else if (level == READ) { X define_key(f1, " Next Page ", " "); X clear_key(f2); X define_key(f3, " Skip Page ", "f"); X clear_key(f4); X clear_key(f5); X clear_key(f6); X clear_key(f7); X define_key(f8, " Return to Elm", "q"); X } X else if (level == CHANGE) { X define_key(f1, " Mail Directry", "=/"); X define_key(f2, " Home Directry", "~/"); X clear_key(f3); X define_key(f4, "Incoming Mailbox", "!\n"); X clear_key(f5); X clear_key(f6); X clear_key(f7); X define_key(f8, " Cancel", "\n"); X } X X softkeys_on(); X} X Xdefine_key(key, display, send) Xint key; Xchar *display, *send; X{ X X char buffer[30]; X X sprintf(buffer,"%s%s", display, send); X X fprintf(stderr, "%c&f%dk%dd%dL%s", ESCAPE, key, X strlen(display), strlen(send), buffer); X fflush(stdout); X} X Xsoftkeys_on() X{ X /* enable (esc&s1A) turn on softkeys (esc&jB) and turn on MENU X and USER/SYSTEM options. */ X X if (hp_softkeys) { X fprintf(stderr, "%c&s1A%c&jB%c&jR", ESCAPE, ESCAPE, ESCAPE); X fflush(stdout); X } X X} X Xsoftkeys_off() X{ X /* turn off softkeys (esc&j@) */ X X if (hp_softkeys) { X fprintf(stderr, "%c&s0A%c&j@", ESCAPE, ESCAPE); X fflush(stdout); X } X} X Xclear_key(key) X{ X /** set a key to nothing... **/ X X if (hp_softkeys) X define_key(key, " ", ""); X} END_OF_src/softkeys.c if test 2576 -ne `wc -c <src/softkeys.c`; then echo shar: \"src/softkeys.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: Extracting \"utils/printmail.c\" $2471 characters$ if test -f utils/printmail.c ; then echo shar: Will not over-write existing file \"utils/printmail.c\" else sed "s/^X//" >utils/printmail.c <<'END_OF_utils/printmail.c' X/** printmail.c **/ X X/** print mail, adding a formfeed between each message **/ X/** Modified to use stdin if being fed from a pipe. **/ X X/** (C) Copyright 1985, Dave Taylor **/ X X#include <stdio.h> X#include "defs.h" X Xstatic char ident[] = { WHAT_STRING }; X X#define dashes \ X"\n\n------------------------------------------------------------------------------\n\n" X#define FF "\014" /* form feed! */ X XFILE *mailfile; Xchar separator[80]; X Xmain(argc, argv) Xint argc; Xchar *argv[]; X{ X char infile[80], username[40], c; X X strcpy(separator, FF); X X argv++; /* get past argv[0] */ X X if (argc > 1) X if (strcmp(*argv, "-d") == 0) { X strcpy(separator, dashes); X --argc; X argv++; X } X X if (argc > 1 && *argv[0] == '-') X exit(fprintf(stderr, "Usage: printmail {-d} {filename (s)}\n")); X X if (argc == 1) { X strcpy(username, getlogin()); X if (strlen(username) == 0) X cuserid(username); X if (isatty(fileno(stdin))) { /* normal invokation... */ X sprintf(infile,"%s/%s",mailhome, username); X if ((mailfile = fopen(infile,"r")) == NULL) { X fprintf(stderr, "No mail!\n"); X exit(0); X } X } X else X mailfile = stdin; /* read from stdin! */ X X if (read_headers() == 0) X fprintf(stderr, "No messages in mailbox!\n"); X } X X if (argc > 1) /* more than one file - delimit each */ X if (strcmp(separator, FF) != 0) X printf("\t\t\t%s\n%s", *argv, separator); X else X printf("\t\t\t%s\n\n", *argv); /* Don't put a formfeed! */ X X while (--argc) { X if ((mailfile = fopen(*argv,"r")) == NULL) { X fprintf(stderr, "Could not open file '%s'!", *argv); X break; X } X else X if (read_headers() == 0) X fprintf(stderr, "No messages in mailbox '%s'!\n", *argv); X argv++; X if (argc-1) { X if (strcmp(separator, FF) != 0) X printf("%s\t\t\t%s%s", separator, *argv, separator); X else X printf("%s\t\t\t%s\n\n", separator, *argv); X } X } X} X Xint Xread_headers() X{ X char buffer[100]; X register int count = 0; X X while (fgets(buffer, 100, mailfile) != NULL) X if (first_word(buffer,"From ")) { X if (real_from(buffer)) { X printf("%s%s", count ? separator : "", buffer); X count++; X } X } X else X printf("%s", buffer); X X return(count); X} X Xint Xreal_from(buffer) Xchar *buffer; X{ X /***** returns true iff 's' has the seven 'from' fields *****/ X X char junk[80]; X X junk[0] = '\0'; X sscanf(buffer, "%*s %*s %*s %*s %*s %*s %s", junk); X return(junk[0] != '\0'); X} END_OF_utils/printmail.c if test 2471 -ne `wc -c <utils/printmail.c`; then echo shar: \"utils/printmail.c\" unpacked with wrong size!? fi # end of overwriting check fi echo shar: End of archive 2 $of 19$. cp /dev/null ark2isdone DONE=true for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ; do if test ! -f ark${I}isdone ; then echo shar: You still need to run archive ${I}. DONE=false fi done if test "$DONE" = "true" ; then echo You have unpacked all 19 archives. echo "See the Instructions file" rm -f ark[1-9]isdone ark[1-9][0-9]isdone fi ## End of shell archive. exit 0